home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesC-D.lzh / Donk.lha / DonkHD / Install < prev    next >
Text File  |  1980-01-08  |  4KB  |  204 lines
  1. ;****************************
  2. (set #sub-dir "")
  3. (set #readme-file "Donk.readme")    ;name of readme file
  4. (set #last-file "Disk.3")    ;last file the imager should create
  5.  
  6. ;****************************
  7. ;----------------------------
  8. ; Checks if given program is reachable via the path
  9. ; if not abort install
  10. ; IN:  #program - to check
  11. ; OUT: -
  12.  
  13. (procedure P_chkrun
  14.   (if
  15.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  16.     ("")
  17.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  18.   )
  19. )
  20.  
  21. (procedure P_disk
  22.   (askdisk
  23.     (dest #AD_disk)
  24.     (prompt ("\nInsert disk 1 in any drive !"))
  25.     (help @askdisk-help)
  26.   )
  27. )
  28.  
  29. ;****************************
  30.  
  31. (if
  32.   (exists #readme-file)
  33.   (if 
  34.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  35.     ("")
  36.     (run ("SYS:Utilities/More %s" #readme-file))
  37.   )
  38. )
  39.  
  40. (set #program "WHDLoad")
  41. (P_chkrun)
  42.  
  43. (set #program "RawDIC")
  44. (P_chkrun)
  45.  
  46. (if
  47.   (= @user-level 2)
  48.   (
  49.     (set #CI_drive
  50.       (askchoice
  51.     (prompt "Select source drive for diskimages")
  52.     (default 0)
  53.     (choices "DF0:" "DF1:" "DF2:" "DF3:")
  54.     (help @askchoice-help)
  55.       )
  56.     )
  57.     (select #CI_drive
  58.       (set #CI_drive "DF0:")
  59.       (set #CI_drive "DF1:")
  60.       (set #CI_drive "DF2:")
  61.       (set #CI_drive "DF3:")
  62.     )
  63.   )
  64.   (set #CI_drive "DF0:")
  65. )
  66.  
  67. (set @default-dest
  68.   (askdir
  69.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  70.     (help @askdir-help)
  71.     (default @default-dest)
  72.     (disk)
  73.   )
  74. )
  75. (set #dest (tackon @default-dest @app-name))
  76. (if
  77.   (exists #dest)
  78.   (
  79.     (set #choice
  80.       (askbool
  81.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  82.         (default 1)
  83.         (choices "Delete" "Skip")
  84.         (help @askbool-help)
  85.       )
  86.     )
  87.     (if
  88.       (= #choice 1)
  89.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  90.     )
  91.   )
  92. )
  93.  
  94. (makedir #dest
  95.   (help @makedir-help)
  96.   (infos)
  97. )
  98.  
  99.  
  100. ;----------------------------
  101.  
  102. (if
  103.   (exists ("%s.newicon" @app-name))
  104.   (set #icon
  105.     (askchoice
  106.       (prompt "\nWhich icon do you like to install ?\n")
  107.       (default 0)
  108.       (choices "Normal" "NewIcon")
  109.       (help @askchoice-help)
  110.     )
  111.   )
  112.   (set #icon 0)
  113. )
  114. (select #icon
  115.   (set #icon ("%s.inf" @app-name))
  116.   (set #icon ("%s.newicon" @app-name))
  117. )
  118. (copyfiles
  119.   (help @copyfiles-help)
  120.   (source #icon)
  121.   (newname ("%s.info" @app-name))
  122.   (dest #dest)
  123. )
  124.  
  125. (if
  126.   (exists ("Donk_ECS.slave" @app-name))
  127.   (set #slave
  128.     (askchoice
  129.       (prompt "\nWhich slave do you want to install ?\n")
  130.       (default 0)
  131.       (choices "ECS (uses 1MB only, no AGA mode)" "AGA (uses 2MB, AGA or ECS mode)")
  132.       (help @askchoice-help)
  133.     )
  134.   )
  135.   (set #slave 0)
  136. )
  137. (select #slave
  138.   (set #slave ("Donk_ECS.slave"))
  139.   (set #slave ("Donk_AGA.slave"))
  140. )
  141.  
  142. (copyfiles
  143.  (help @copyfiles-help)
  144.  (source #slave)
  145.  (newname ("%s.slave" @app-name))
  146.  (dest #dest)
  147. )
  148.  
  149. (if
  150.   (exists #readme-file)
  151.   (copyfiles
  152.     (help @copyfiles-help)
  153.     (source #readme-file)
  154.     (dest #dest)
  155.   )
  156. )
  157. (if
  158.   (exists ("%s.info" #readme-file))
  159.   (copyfiles
  160.     (help @copyfiles-help)
  161.     (source ("%s.info" #readme-file))
  162.     (dest #dest)
  163.   )
  164. )
  165.  
  166. (if
  167.   (= #sub-dir "")
  168.   ("")
  169.   (
  170.     (set #dest (tackon #dest #sub-dir))
  171.     (makedir #dest
  172.       (help @makedir-help)
  173.     )
  174.   )
  175. )
  176.  
  177. (copyfiles
  178.   (help @copyfiles-help)
  179.   (source ("OSEmu.400"))
  180.   (dest #dest)
  181. )
  182.  
  183. (copyfiles
  184.   (help @copyfiles-help)
  185.   (source ("%s.islave" @app-name))
  186.   (dest #dest)
  187. )
  188.  
  189. (message "Now I will create disk images.")
  190. (working)
  191. (run ("CD \"%s\"\nRawDIC SLAVE=%s.islave SOURCE=%s\nDelete %s.islave" #dest @app-name #CI_drive @app-name))
  192.  
  193. (if
  194.   (exists (tackon #dest #last-file))
  195.   ("")
  196.   (abort "Diskimaging not successful !\nRawDIC was unable to create all needed files !")
  197. )
  198.  
  199. ;----------------------------
  200.  
  201. (run ("Delete %s ALL QUIET FORCE" #cleanup))    ;delete temporary files
  202.  
  203. (exit)
  204.